home *** CD-ROM | disk | FTP | other *** search
/ Amiga Times / AmigaTimes.iso / demos / programme / Ww7.01Upd / Wordworth 7.01 Update < prev    next >
Encoding:
Text File  |  1998-10-06  |  1.4 KB  |  59 lines
  1. ; Script to update Wordworth 7 to Wordworth 7.01 - MJ & PB
  2.  
  3. echo "*NDigita Wordworth 7.01 Update"
  4. echo "============================*N"
  5. echo "This will update your copy of Wordworth 7 to version 7.01.*N"
  6.  
  7. ask "Do you want to continue (Y/N)?"
  8.  
  9. if warn
  10.     if not exists ENV:Wordworth/WwFonts
  11.         echo "*NERROR: Wordworth does not seem to be installed correctly."
  12.         echo "Re-install Wordworth 7, then run this update again."
  13.  
  14.         ask "*NPress Return to exit."
  15.         Quit
  16.     endIf
  17.  
  18.     cd >ENV:CurrentDir
  19.     type ENV:Wordworth/WwFonts >ENV:FontPath
  20.     cd "$FontPath"
  21.     cd /
  22.     cd >ENV:WwPath
  23.     cd "$CurrentDir"
  24.  
  25.     ; Copy the files
  26.     echo "*N0%         100%"
  27.     copy WwProg "$WwPath"
  28.     echo noline "####"
  29.     copy WwCore.library "$WwPath/WwFiles"
  30.     echo noline "##"
  31.     copy "Drawing Tools" "$WwPath/Modules"
  32.     echo noline "##"
  33.     copy Table "$WwPath/Modules"
  34.     echo noline "##"
  35.     copy Picture "$WwPath/Modules"
  36.     echo noline "##"
  37.     copy TextEffects "$WwPath/Modules"
  38.     echo noline "##"
  39.  
  40.     ; Add a line to the core catalog file
  41.     if exists "$WwPath/catalogs/english"
  42.         echo noline "*N31, January 1998" >>"$WwPath/Catalogs/english/WwCore.catalog"
  43.     endif
  44.     if exists "$WwPath/catalogs/deutsch"
  45.         echo noline "*N31, Januar 1998" >>"$WwPath/Catalogs/deutsch/WwCore.catalog"
  46.     endif
  47.     if exists "$WwPath/catalogs/français"
  48.         echo noline "*N31, Janvier 1998" >>"$WwPath/Catalogs/français/WwCore.catalog"
  49.     endif
  50.  
  51.     echo "#"
  52. endif
  53.  
  54. unsetenv >NIL: CurrentDir
  55. unsetenv >NIL: FontPath
  56. unsetenv >NIL: WwPath
  57.  
  58. ask "*NPress Return to exit."
  59.